home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / NEUCLS3.ZIP / NURN.ZP / UNSUP.BAT < prev    next >
DOS Batch File  |  1994-08-19  |  2KB  |  99 lines
  1. :unsup
  2.  
  3. c:\neuron\batch\Ben menuF c:\neuron\batch\unsup.mnu
  4.  
  5. IF ERRORLEVEL 5  GOTO end
  6. IF ERRORLEVEL 4  GOTO help
  7. IF ERRORLEVEL 3  GOTO Util
  8. IF ERRORLEVEL 2  GOTO neuron
  9. IF ERRORLEVEL 1  GOTO conv   
  10. IF ERRORLEVEL 0  GOTO END 
  11.  
  12.  
  13. :conv
  14. c:\neuron\batch\Ben menuF c:\neuron\batch\unsup1.mnu
  15.  
  16. IF ERRORLEVEL 5  GOTO unsup
  17. IF ERRORLEVEL 4  GOTO helpcn
  18. IF ERRORLEVEL 3  GOTO exam1
  19. IF ERRORLEVEL 2  GOTO run2   
  20. IF ERRORLEVEL 1  GOTO run1   
  21. IF ERRORLEVEL 0  GOTO END 
  22.  
  23. :run1
  24. c:\neuron\batch\Ben cls blue
  25. IF NOT EXIST Clus.par  copy c:\neuron\batch\Clus.par
  26. edit clus.par
  27. c:\neuron\clustr<clus.par
  28. pause
  29. c:\neuron\batch\Ben cls blue
  30. GOTO conv
  31.  
  32. :run2
  33. c:\neuron\batch\Ben cls blue
  34. c:\neuron\clustr
  35. c:\neuron\batch\Ben cls blue
  36. GOTO conv
  37.  
  38.  
  39. :exam1
  40. If Not EXIST clustr.out GOTO conv
  41. c:\neuron\batch\Ben list clustr.out Output~of~Conventional~Clustering~Program 
  42. GOTO conv
  43.  
  44. :helpcn
  45. c:\neuron\batch\Ben list c:\neuron\batch\kmean.hlp Conventional~Clustering~Help
  46. goto conv
  47.  
  48.  
  49.  
  50. :neuron
  51. c:\neuron\batch\Ben menuF c:\neuron\batch\unsup2.mnu
  52.  
  53. IF ERRORLEVEL 5  GOTO unsup
  54. IF ERRORLEVEL 4  GOTO helpsm
  55. IF ERRORLEVEL 3  GOTO exam2
  56. IF ERRORLEVEL 2  GOTO rn2   
  57. IF ERRORLEVEL 1  GOTO rn1   
  58. IF ERRORLEVEL 0  GOTO END 
  59.  
  60.  
  61. :rn1
  62. c:\neuron\batch\Ben cls blue
  63. IF NOT EXIST Som.par  copy c:\neuron\batch\Som.par
  64. edit som.par
  65. c:\neuron\Som<Som.par
  66. pause
  67. c:\neuron\batch\Ben cls blue
  68. GOTO neuron
  69.  
  70. :rn2
  71. c:\neuron\batch\Ben cls blue
  72. c:\neuron\Som
  73. c:\neuron\batch\Ben cls blue
  74. GOTO neuron
  75.  
  76. :exam2
  77. If Not EXIST som.out GOTO neuron
  78. c:\neuron\batch\Ben list som.out Output~of~Neural~Clustering~Program 
  79. GOTO neuron
  80.  
  81. :helpsm
  82. c:\neuron\batch\Ben list c:\neuron\batch\som.hlp Self-Organizing~Map~Help
  83. goto neuron
  84.  
  85.  
  86.  
  87.  
  88. :Util
  89. call c:\neuron\batch\Deldir
  90. GOTO unsup
  91.  
  92. :help
  93. c:\neuron\batch\Ben list c:\neuron\batch\uns.hlp Unsupervised~Learning~Help
  94. goto unsup
  95.  
  96.  
  97. :End
  98.  
  99.